home *** CD-ROM | disk | FTP | other *** search
/ Aminet 32 / Aminet 32 (1999)(Schatztruhe)[!][Aug 1999].iso / Aminet / dev / amos / hdplay.lha / hd-play.amos / hd-play.amosSourceCode
AMOS Source Code  |  1998-12-22  |  740b  |  37 lines
  1. '  HD-PLAY v0.72 by d.lenz 
  2. '  http://members.xoom.com/dl80
  3. '  mailto: dl80@gmx.de 
  4. Rem
  5. Rem
  6. Rem
  7. ' Choose the File to play from Disc here ! 
  8. ' F$=""
  9. '
  10. Open In 1,F$
  11. FLEN=Lof(1)
  12. Close 1
  13. SECONDS=5 : SPEED=18000
  14. CHUNKSIZE=SPEED*SECONDS
  15. CHUNKS=FLEN/CHUNKSIZE
  16. If CHUNKS*CHUNKSIZE<>FLEN Then Inc CHUNKS
  17. LASTCHUNK=FLEN-(CHUNKSIZE*(CHUNKS-1))
  18. Reserve As Chip Work 10,CHUNKSIZE
  19. Reserve As Chip Work 11,CHUNKSIZE
  20. BANK=10
  21. Led Off 
  22. Open In 1,F$
  23. For CHUNK=1 To CHUNKS
  24.    Timer=0
  25.    BANK=21-BANK
  26.    Sload 1 To Start(BANK),CHUNKSIZE
  27.    If CHUNK<>1 Then While Timer<>(50*SECONDS) : Wend 
  28.    If CHUNK<>CHUNKS
  29.       Sam Raw 15,Start(BANK),CHUNKSIZE,SPEED
  30.    Else 
  31.       Sam Raw 15,Start(BANK),LASTCHUNK,SPEED
  32.    End If 
  33. Next CHUNK
  34. Close 1
  35. Erase 10
  36. Erase 11
  37. End